
(do-times (n 4 7 "done") (display n)) 	; =| 456 => "done"
(do-times (n 4 7) (display n))		; =| 456 => <UNSPECIFIED>
(do-times (n (+ 4 3)) (display n))	; =| 0123456
(do-times 5 (display "n"))		; =| nnnnn

(define p0 (lambda () (display "p0")))
(define p1 (lambda (e) (display "p1") (display e)))

(iter 3 p0)				; => DISPLAYS p0p0p0
(iter 3 p1)				; => DISPLAYS p10p11p12

(iter '(a b c) p0)			; => DISPLAYS p0p0p0
(iter '(a b c) p1)			; => DISPLAYS p1ap1bp1c

(iter '#(x y z) p0)			; => DISPLAYS p0p0p0
(iter '#(x y z) p1)			; => DISPLAYS p1xp1yp1z

(iter "the" p0)				; => DISPLAYS p0p0p0
(iter "the" p1)				; => DISPLAYS p1tp1hp1e
